home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfcom.amirx < prev    next >
Text File  |  1999-04-19  |  2KB  |  25 lines
  1. /* DWaRFCom.AmIRX - By David Newton
  2. \\
  3. // Allows simple commands to be added easily to AmIRC. The commands are
  4. \\ as follows (just use a simple assign to them from within amirc, and
  5. // the assign to use is noted with each command):
  6. \\
  7. // COMMANDS:                         ALIAS:           USAGE:
  8. \\
  9. //  /CTCP <nick> XDCC LIST           XLIST %p        /XLIST <nick>
  10. \\  /CTCP <nick> XDCC SEND <pack>    XSEND %p        /XSEND <nick> <pack>
  11. //  /CTCP <nick> XDCC HELP           XHELP %p        /XHELP <nick>
  12. \\  /CTCP <nick> PAGE                PAGE %p         /PAGE <nick>
  13. //  /CTCP <nick> SOUND <sound>       SOUND %p        /SOUND <sound> <nick>
  14. \\  /CTCP <channel> SOUND <sound>    SOUND %p        /SOUND <sound>
  15. \\  /CTCP <nick> GETSOUND <sound>    GETSOUND %p     /GETSOUND <nick> <sound>
  16. //  /CTCP <nick> FINGER              FINGER %p       /FINGER <nick>
  17. \\  /NOTICE "MYNICK" %QUIT           DQUIT           /DFxQUIT
  18. //
  19. \\ The usage list is how to actually use these commands from inside AmIRC!
  20. //
  21. \\ The aliases are built up using this script as the start, and a command
  22. // from the alias list. eg, 
  23. \\           /Alias SOUND = /rx rexx/dwarfx/DWaRFCom.AmIRX SOUND %p
  24. */
  25. Options Results;Parse Arg com nick junk .;com=Upper(com);"GetMyNick";mynick=result;Select;When com="XLIST" Then "Say /CTCP "nick" XDCC LIST";When com="XSEND" Then "Say /CTCP "nick" XDCC SEND #"junk;When com="XHELP" Then "Say /CTCP "nick" XDCC HELP";When com="SOUND" Then;Do;If Strip(junk)="" Then;Do;'GetChannel';junk=result;End;"Say /CTCP "junk" SOUND "nick" ("nick")";End;When com="PAGE" Then "Say /CTCP "nick" PAGE";When com="GETSOUND" Then "Say /CTCP "nick" GETSOUND "junk;When com="FINGER" Then "Say /CTCP "nick" FINGER";When com="DQUIT" Then "Raw NOTICE "mynick" :%QUIT";Otherwise;"Echo p="d2c(27)"x«DWaRFx» "d2c(2)"ERROR:"d2c(2)" Unknown Command!";End;Exit